        AMSTRAD ACTION MAGAZINE
         DEC 1985 - ISSUE 003

----------------------------------------
001 - Zebra Windmills
----------------------------------------

10 REM Zebra Windmills
20 REM BY Steven Loze
30 REM ---------------
40 RANDOMIZE TIME
50 GOSUB 280:REM initialise
60 WHILE NOT finished
70 FOR change=1 TO 2
80 RAD:IF change=2 THEN DEG
90 CLS
100 FOR amstrad=1 TO 360 STEP 10*RND
110 PLOT 320,200
120 DRAW 320+250*SIN(amstrad),((amstrad MOD(3)+1)
130 NEXT amstrad
140 GOSUB 170:REM pen changes
150 NEXT change
160 WEND
170 REM pen changes
180 FOR j=1 TO 26
190 FOR k=1 TO 3
200 INK k,j
210 FOR z=1 TO 100:NEXT z
220 INK k,0
230 NEXT k
240 NEXT j
250 GOSUB 280
260 RETURN
270 REM ----------
280 REM initialise
290 MODE 1
300 INK 0,0:INK 1,26:INK 2,24:INK 3,6:BORDER 0
310 RETURN


----------------------------------------
002 - Lissajoux Figures
----------------------------------------

10 REM Random Lissajoux Figures
20 REM 
30 REM Creates random Lissajoux
40 REM  figures. Press any key
50 REM     for a new design
60 REM 
70 RANDOMIZE TIME
80 MODE 1:INK 0,0:BORDER 0:INK 1,2:INK 2,6:INK 3,24
90 IF INKEY$<>""THEN 90
100 REM --------------------
110 WHILE NOT finished
120 p=INT(RND*3)+1
130 loz=(INT(RND*3)+1)/0.8
140 gf=0
150 PLOT 300+120*SIN(gf),200+120*COS(gf*loz),p
160 REM --------------------
170 WHILE INKEY$=""
180 gf=gf+0.1
190 DRAW 300+120*SIN(gf),200+120*COS(gf*loz),p
200 IF RND>0.9 THEN p=p+1:IF p=4 THEN p=1
210 WEND
220 CLS
230 WEND


----------------------------------------
003 - Dionysian Spiral
----------------------------------------

10 REM   Dionysian Spiral
20 REM * Highly Effective *
30 RANDOMIZE 
40 INK 0,6:BORDER 6,2:MODE 0:CLG 0:PAPER 0:SPEED INK 3,7
50 vars=200:vim=60
60 DIM z(14)
70 FOR k=0 TO 14
80 INK k+1,k
90 NEXT k
100 INK 7,6,2:INK 2,24,0:INK 12,16,5
110 ORIGIN (vars+2*vim),vars
120 FOR alan=103 TO 0 STEP -1
130 sugar=alan*PI/52
140 MOVE COS(sugar)*-vim,SIN(sugar)*-vars
150 DRAW COS(sugar)*318,SIN(sugar)*vim,alan MOD 13+1
160 NEXT alan
170 BORDER 6
180 REM -------------------------
190 WHILE NOT finished
200 jump=0.3+RND
210 FOR t=1 TO 16+jump STEP jump
220 FOR k=0 TO 14
230 INK k+1,k+t
240 IF INKEY$<>""THEN 350
250 NEXT k
260 NEXT t
270 FOR t=16 TO 2-jump STEP -jump
280 FOR k=0 T0 14
290 INK k+1,k+t
300 IF INKEY$<>""THEN 350
310 NEXT k
320 NEXT t
330 IF RND>0.55 THEN h=INT(RND*15):INK 0,h:BORDER h
340 WEND
350 MODE 1


----------------------------------------
All files typed in and saved to .dsk
file (NVG) by Mr. Michael N. Till.
..The Devil's Phoenix..

Any problems or queeries please
e-mail: redstick@hotmail.co.uk